home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 6 / Amiga Format AFCD06 (Nov 1996, Issue 90).iso / serious / commercial / advex / dvescripts / cambioala.xdve < prev    next >
Text File  |  1995-06-21  |  2KB  |  74 lines
  1. /* Uscita pagina ad ALIANTE usando la seconda pagina come fondo in 45 FRAMES */
  2.  
  3. ADDRESS "ADPro"
  4. OPTIONS RESULTS
  5.  
  6. TRUE  = 1
  7. FALSE = 0
  8. TmpIma = 'T:immagine'
  9. TmpIma2 = 'T:immagine2'
  10. TEMPBAK ='T:BAK'
  11. NUMEROFRAME = 0
  12. ROT1 = 0
  13. ROT2 = 0
  14. ROT3 = 0
  15.  
  16. OKAY2 '"Hai messo a RESET TO DEFAULT il perspective?"'
  17. IF RC = 0 THEN EXIT
  18.  
  19. GETFILES '"Seleziona la PRIMA immagine"'
  20.  IF RC ~= 0 THEN EXIT
  21.   PRIMA = ADPRO_RESULT
  22.    IF PRIMA = "" THEN EXIT
  23.     LOADER "UNIVERSAL" PRIMA
  24.     OPERATOR "DYNAMIC_RANGE" 1
  25. SAVER "IFF" TmpIma "RAW"
  26.     XSIZE
  27.      BASE = ADPRO_RESULT
  28.     YSIZE
  29.      ALTZ = ADPRO_RESULT
  30.  
  31. GETFILES '"Seleziona la SECONDA immagine"'
  32.  IF RC ~= 0 THEN EXIT
  33.   SECONDA = ADPRO_RESULT
  34.    IF SECONDA = "" THEN EXIT
  35. LOADER "UNIVERSAL" SECONDA
  36.     XSIZE
  37.      BASE2 = ADPRO_RESULT
  38.     YSIZE
  39.      ALTZ2 = ADPRO_RESULT
  40. IF (BASE2 > BASE) | (ALTZ2 > ALTZ) THEN DO
  41.                           ABS_SCALE (BASE) (ALTZ)
  42.                           END
  43. IF (BASE2 < BASE) | (ALTZ2 < ALTZ) THEN DO
  44.                           ABS_SCALE (BASE) (ALTZ)
  45.                           END
  46.      SAVER "IFF" TmpIma2 "RAW"
  47.               
  48. GETfile '"Path e nomebase 45 frames elaborati"'
  49. IF RC ~= 0 THEN EXIT
  50. OUTFILE = ADPRO_RESULT
  51. if OUTFILE = "" then exit
  52.   
  53.    DO i=1 to 45
  54. LOADER "IFF" TmpIma
  55.  OPERATOR "PERSPECTIVE" CAMERA_POSITION 0 0 (BASE) THETA (ROT1) GAMMA (ROT2) PHI (ROT3) SOFT_EDGE
  56.   SAVER "IFF" TEMPBAK "RAW"
  57. LOADER "IFF" tmpima2
  58. LOADER "IFF" TEMPBAK COMPOFFSET 0 0 100 0 0 0
  59.   ROT1 = (ROT1 + 2)
  60.   ROT2 = (ROT2 + 2)
  61.   ROT3 = (ROT3 + 2)
  62.     NUMEROFRAME = (NUMEROFRAME + 1)
  63. NUMERO = RIGHT(NUMEROFRAME,3,'0')
  64. SFORMAT "IFF"
  65.   SAVE (OUTFILE)||'.'||(NUMERO) "RAW"
  66.   SAY "Salvo il frame Num." NUMERO
  67.     END 
  68.     
  69. ADDRESS COMMAND "Delete >NIL:" TmpIma
  70. ADDRESS COMMAND "Delete >NIL:" TmpIma2
  71. ADDRESS COMMAND "Delete >NIL:" TEMPBAK
  72.  
  73. EXIT
  74.